#!/usr/local/bin/perl print "Content-Type: text/html\n\n"; print "<TITLE> Environment of WWW server </TITLE>\n"; foreach $Key(keys(%ENV)) { print "<b>$Key</b> $ENV{$Key}<p>\n";}